perm filename SVLISP[P,JRA] blob sn#203342 filedate 1976-02-23 generic text, type T, neo UTF8
(DEF SV1
 (NLAMBDA NIL
   (PROG (*A1 B)
         (LOAD (QUOTE HACK) T)
         (LOAD (QUOTE AUXFNS) T)
         (SETQ *A1 (GETD (QUOTE SAVEME)))
         (PUTD (QUOTE SAVEME))
         (PUTD (QUOTE SV1))
         ($MUMBLE NIL T)
         (RECLAIM 100 100)
         ($MUMBLE)
         (EVAL (CONS *A1)))))